home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / progs / grafica / visage / install visage next >
Text File  |  1996-12-08  |  37KB  |  1,384 lines
  1. ;
  2. ; $VER: Install_Visage 39.11 (8.12.96)
  3. ;
  4. ; Installer script for Visage.
  5. ;
  6.  
  7.  
  8. (set #german-lang        1)
  9. (set #english-lang       2)
  10. (set #spanish-lang       4)
  11. (set #french-lang        8)
  12. (set #italian-lang      16)
  13. (set #dutch-lang        32)
  14. (set #norwegian-lang    64)
  15. (set #russian-lang     128)
  16. (set #serbian-lang     256)
  17. (set #finnish-lang     512)
  18. (set #swedish-lang    1024)
  19.  
  20. ; Get current language (no need for lots of silly icons! ;). However, this
  21. ; won't properly work for all versions of the Installer. Some doesn't
  22. ; understand the language "default". :/
  23.  
  24. (if (= (exists "Env:Language") 1)
  25.     ; GetEnv reports "String too long" if the variable doesn't exist! :(
  26.     ; Dunno if this is fixed in V43... But we need the check anyway.
  27.     (set @language (getenv "language"))
  28. )
  29.  
  30. ;**************************************************************************
  31. ;
  32. ; English strings
  33. ;
  34.  
  35.  
  36. (set #default-lang #english-lang)
  37.  
  38. (set #bad-kick
  39.     "You must have AmigaOS Release 3.0 or newer to use Visage."
  40. )
  41.  
  42. (set #welcome
  43.     (cat
  44.         "\n\n\nWelcome to the Visage installation utility.\n\n"
  45.         "This program lets you install Visage on your Amiga.\n\n\n"
  46.         "Visage © 1995-96  Magnus Holmgren."
  47.     )
  48. )
  49.  
  50. (set #install-parts "Please select the parts you wish to install")
  51.  
  52. (set #item-visage "Visage")
  53.  
  54. (set #item-visage-guide "Visage.guide")
  55.  
  56. (set #item-locale "Translations")
  57.  
  58. (set #item-codec "JPEG codec")
  59.  
  60. ; The following four strings are program names. Normally, these shouldn't
  61. ; be translated, though one could consider appending some locale-specific
  62. ; text after the names.
  63.  
  64. (set #item-getmodeid "GetModeID")
  65.  
  66. (set #item-kill "Kill")
  67.  
  68. (set #item-makelink "MakeLink")
  69.  
  70. (set #item-deletelink "DeleteLink")
  71.  
  72. (set #item-unpackilbm "UnpackILBM")
  73.  
  74. (set #install-parts-help
  75.     (cat
  76.         "    Here you select the different parts of Visage that you would like to "
  77.         "install. After that, you select the details of the installation (such as "
  78.         "where the different files should be installed). You may choose to install "
  79.         "the following items:\n"
  80.         "    Visage: The actual picture viewer.\n"
  81.         "    Visage.guide: The manual, in AmigaGuide® format. If you install it "
  82.         "using the installer, the text will reflow to fit the current window size. "
  83.         "If you do a manual installation, the text is fixed to 76 columns.\n"
  84.         "    Translations: If you install a translation, then Visage can operate in "
  85.         "the language(s) you select.\n"
  86.         "    JPEG codec: The Tower JPEG Codec Class, which Visage needs to be able "
  87.         "to view JPEG pictures (without using datatypes).\n"
  88.         "    GetModeID: A program that shows a screen mode requester, and prints "
  89.         "a decimal number that represents the selected screen mode.\n"
  90.         "    Kill: A program that can stop another program (sending \"break\" "
  91.         "signals). Similar to Break.\n"
  92.         "    MakeLink: A replacement for the MakeLink command that supports "
  93.         "soft links.\n"
  94.         "    DeleteLink: A simple Delete-clone that also deletes soft links "
  95.         "without a target.\n"
  96.         "    UnpackILBM: A program that unpacks the picture data in an IFF ILBM "
  97.         "picture (the BODY chunk).\n"
  98.         "    For more information about these parts, please read the manual.\n"
  99.     )
  100. )
  101.  
  102. (set #where-visage "Where would you like to install Visage?\nA drawer will NOT be created!")
  103.  
  104. (set #where-visage-guide "Where would you like to install Visage.guide?")
  105.  
  106. (set #copy-guide-icon "Should I copy the icon for Visage.guide?")
  107.  
  108. (set #convert-guide "Converting Visage.guide...")
  109.  
  110. (set #which-language "Which languages should be installed?")
  111.  
  112. (set #which-language-help
  113.     (cat
  114.         "    The Amiga can be operated in many different languages. If you "
  115.         "want Visage to use the same language as your Amiga Workbench, "
  116.         "then a couple of catalog files must be copied to your harddisk "
  117.         "for each language supported.\n"
  118.         "    To reduce the amount of space consumed by the language files, "
  119.         "you can select to have only the files of specific languages "
  120.         "copied.\n"
  121.         "    Simply check the boxes of the languages you wish to have have "
  122.         "available on your system.\n"
  123.     )
  124. )
  125.  
  126. (set #where-language
  127.     (cat
  128.         "Where do you want to install the language files?\n\n"
  129.         "You can install them in either the same drawer as the program "
  130.         "itself (select \"Program\") or in the 'global' volume "
  131.         "\"Locale:\" (select \"Locale:\")."
  132.     )
  133. )
  134.  
  135. ; These two strings must match the strings used in above in #where-language.
  136. ; The words in question are the quoted ones after "select" in the parentheses.
  137. (set #lang-progdir "Program")
  138.  
  139. (set #lang-locale  "Locale:")
  140.  
  141. (set #where-language-help
  142.     (cat
  143.         "    If you install the language files in the same drawer as Visage "
  144.         "itself (or rather, in subdirectories within that drawer), then you "
  145.         "need to move these files as well, if you move Visage to some other "
  146.         "drawer. If you install the language files in \"Locale:\" you don't "
  147.         "need to worry about them if you move Visage. On the other hand, you "
  148.         "will not have all Visage-related files in the same drawer."
  149.     )
  150. )
  151.  
  152. (set #builtin-lang "(default)")
  153.  
  154. (set #where-tools "Where would you like to install the extra programs?")
  155.  
  156. (set #where-tools-help
  157.     (cat
  158.         "    Here you specify where the programs GetModeID, Kill, MakeLink, "
  159.         "DeleteLink and UnpackILBM will be installed. Only the programs you "
  160.         "selected will be installed. Since these programs are Shell-only, "
  161.         "the default location is C:, where the systems Shell-only programs "
  162.         "can be found.\n"
  163.         "    It is recommended that you install these programs somewhere in "
  164.         "your command search path.\n"
  165.     )
  166. )
  167.  
  168. (set #copy "Copying %s to %s...")
  169.  
  170. (set #program-update "How do you want to update the tooltypes in the icon?")
  171.  
  172. (set #update-none "No update")
  173.  
  174. (set #update-all "Add all")
  175.  
  176. (set #update-since "Add new since %s")
  177.  
  178. (set #program-update-help
  179.     (cat
  180.         "    Since this installation updates an older version of Visage, "
  181.         "the icon will not be copied over. This to maintain any changes "
  182.         "you may have made to it. However, new tooltypes may have been added. "
  183.         "Here you can decide if you want to:\n"
  184.         "    No update: Skip this part.\n"
  185.         "    Add all tooltypes: existing tooltypes will not be changed "
  186.         "Any tooltypes you may have removed will be added again. The new "
  187.         "tooltypes will be added as well.\n "
  188.         "    Add new since 39.x: Only add the new tooltypes since that version. "
  189.         "Any existing tooltype not be changed.\n"
  190.     )
  191. )
  192.  
  193. ; JPEG codec
  194.  
  195. (set #codec-message
  196.     (cat
  197.         "\n\n\nTower JPEG Codec Class\n\nCopyright © 1994 Christoph Feck, TowerSystems\n"
  198.         "All Rights Reserved.\n\n\n\n"
  199.         "Please refer to the documentation for details."
  200.     )
  201. )
  202.  
  203. (set #jpeg-tmp-prompt
  204.     "Select a directory for temporary files, not in RAM:"
  205. )
  206.  
  207. (set #temp-file
  208.     (cat
  209.         "    To decode certain JPEG images, the Codec needs a large amount of memory.\n"
  210.         "If the required storage is not available in main memory, the Codec will "
  211.         "create a temporary file on your harddisk. The volume on which this file is "
  212.         "created should have enough free space (about 4 meg).\n"
  213.         "    A temporary file is usually only required, if you want to quantize "
  214.         "JPEG images to 256 colors.\n\n"
  215.         @askdir-help
  216.     )
  217. )
  218.  
  219. (set #jpeg-startup-prompt
  220.     "An assignment has to be added to your user-startup."
  221. )
  222.  
  223. (set #make-assign
  224.     (cat
  225.         "    The logical assignment \"JPEGTMP:\" is used to refer to the temporary "
  226.         "directory.\n"
  227.         "    In order to make this assignment available on every reboot, an "
  228.         "\"Assign\" command has to be added to your \"user-startup\" file.\n\n"
  229.         @startup-help
  230.     )
  231. )
  232.  
  233. (set #jpeg-copy "Copying %s...")
  234.  
  235.  
  236. ;**************************************************************************
  237. ;
  238. ; German strings
  239. ;
  240.  
  241. (if (= @language "deutsch")
  242.     (
  243.         (set #default-lang #german-lang)
  244.     )
  245. )
  246.  
  247.  
  248. ;**************************************************************************
  249. ;
  250. ; Spanish strings
  251. ;
  252.  
  253. (if (= @language "español")
  254.     (
  255.         (set #default-lang #spanish-lang)
  256.  
  257.         (set #bad-kick "Imprescindible SO 3.0 o superior para usar Visage.")
  258.  
  259.         (set #welcome
  260.             (cat
  261.                 "\n\n\n Bienvenido al instalador del programa Visage.\n\n"
  262.                 "Este programa le permite instalar el visor de imágenes "
  263.                 "Visage en su Amiga.\n\n\n"
  264.                 "Visage © 1995-96  Magnus Holmgren."
  265.             )
  266.         )
  267.  
  268.         (set #install-parts "Por favor, elija qué partes desea instalar")
  269.  
  270.         (set #item-visage "Visage")
  271.  
  272.         (set #item-visage-guide "Visage.guide")
  273.  
  274.         (set #item-locale "Idiomas")
  275.  
  276.         (set #item-codec "JPEG codec")
  277.  
  278.         (set #item-getmodeid "GetModeID")
  279.  
  280.         (set #item-kill "Kill")
  281.  
  282.         (set #item-makelink "MakeLink")
  283.  
  284.         (set #item-unpackilbm "UnpackILBM")
  285.  
  286.         (set #install-parts-help
  287.             (cat
  288.                 "\n   Aquí usted puede elegir las diferentes partes de "
  289.                 "Visage que deben ser instaladas; a continuación, "
  290.                 "deberá seleccionar los detalles de la instalación "
  291.                 "(como el lugar donde deben ser instalados p. ej.). "
  292.                 "Puede elegir qué elementos desea instalar o no de "
  293.                 "entre los siguientes:\n\n"
  294.                 "   Visage (el programa visualizador de imágenes).\n\n"
  295.                 "   Visage.guide (manual en formato AmigaGuide®; "
  296.                 "si lo instala desde aquí, el texto se redistribuirá "
  297.                 "para caber en el actual tamaño de ventana, mientras "
  298.                 "que si lo hace manualmente el ancho será de 76 "
  299.                 "columnas.\n\n"
  300.                 "   Catálogos (permite a Visage expresarse en el idioma "
  301.                 "que usted seleccione --de entre los disponibles-- tanto "
  302.                 "en la instalación como desde las preferencias del WB).\n\n"
  303.                 "   JPEG codec (esta clase le permite a Visage mostrar "
  304.                 "imágenes JPEG, sin tener que usar los filtros del SO "
  305.                 "--Datatypes--).\n\n"
  306.                 "   GetModeID (este programa muestra una petición de "
  307.                 "modos de pantalla para que se elija uno, e imprime el nº "
  308.                 "decimal que lo representa.\n\n"
  309.                 "   Kill (permite detener otro programa, enviando una señal "
  310.                 "\"break\": similar al comando Break del AmigaDOS.\n\n"
  311.                 "   MakeLink (sustituto del comando MakeLink del AmigaDOS "
  312.                 "que soporta vinculaciones o enlaces soft --'soft "
  313.                 "links'--).\n\n"
  314.                 "    DeleteLink: A simple Delete-clone that also deletes "
  315.                 "soft links without a target.\n\n"
  316.                 "   UnpackILBM (descomprime los datos, o sea el cuerpo o "
  317.                 "bloque BODY, de la imagen IFF ILBM señalada.\n\n"
  318.                 "   Para más información sobre lo anterior, consulte el "
  319.                 "manual.\n\n"
  320.             )
  321.         )
  322.  
  323.         (set #where-visage "¿Dónde desea instalar Visage?")
  324.  
  325.         (set #where-visage-guide "¿Dónde desea instalar la documentación Visage.guide?")
  326.  
  327.         (set #copy-guide-icon "¿Quiere que copie el icono de Visage.guide?")
  328.  
  329.         (set #convert-guide "Convirtiendo Visage.guide...")
  330.  
  331.         (set #which-language "¿Qué idiomas desea instalar?")
  332.  
  333.         (set #which-language-help
  334.             (cat
  335.                 "\n    El Amiga puede trabajar con diferentes idiomas, así que "
  336.                 "si desea que Visage pueda emplear el mismo definido para su "
  337.                 "Amiga Workbench, tendrán que ser copiados los ficheros "
  338.                 "catálogo que correspondan a su disco duro (uno por cada "
  339.                 "lengua soportada).\n\n"
  340.                 "    Para reducir la cantidad de espacio consumido por estos "
  341.                 "ficheros idiomáticos, puede seleccionar únicamente los de "
  342.                 "las lenguas que desee copiar y/o instalar, bastando para "
  343.                 "ello que sólo active el interruptor de aquellos de los que "
  344.                 "quiera disponer en su sistema.\n"
  345.             )
  346.         )
  347.  
  348.         (set #where-tools "¿Desea que se instalen las herramientas auxiliares?")
  349.  
  350.         (set #where-tools-help
  351.             (cat
  352.                 "\n   Aquí ha de especificar cuál(es) de los programas "
  353.                 "GetModeID, Kill, MakeLink, DeleteLink y/o UnpackILBM "
  354.                 "desea instalar: sólo los programas que usted seleccione "
  355.                 "serán copiados. Como estas utilidades son para utilizar "
  356.                 "únicamente desde el Shell, el directorio destino por "
  357.                 "defecto es C:, que es el lugar habitual donde encontrar "
  358.                 "este tipo de programas.\n\n"
  359.                 "   Es recomendable que instale estos programas en algún "
  360.                 "lugar accesible por el sistema de forma automática (use "
  361.                 "en tal caso el comando Path del AmigaDOS).\n"
  362.             )
  363.         )
  364.  
  365.         (set #copy "Copiando %s a %s...")
  366.  
  367.         (set #program-update "¿Quiere actualizar los tipos de herramienta del icono?")
  368.  
  369.         (set #update-none "No actualizar")
  370.  
  371.         (set #update-all "Añadir todo")
  372.  
  373.         (set #update-since "Añadir nuevo hasta %s")
  374.  
  375.         (set #program-update-help
  376.             (cat
  377.                 "\n   Hasta esta actualización de la instalación en "
  378.                 "una versión antigua de Visage, el icono no podía "
  379.                 "ser copiado encima: esto era para mantener cualquier "
  380.                 "cambio que hubiese hecho usted en él. Sin embargo, "
  381.                 "nuevos tipos de herramienta pueden ser añadidos, así "
  382.                 "que aquí ha de decidir lo que hacer:\n\n"
  383.                 "   No actualizar: Salta esta parte.\n\n"
  384.                 "   Añadir todos los tipos de herramienta (los tipos de "
  385.                 "herramienta no se modifican; cualquiera que usted "
  386.                 "elimine, podrá ser añadido de nuevo y los nuevos tipos "
  387.                 "de herramienta pueden ser añadidos sin problemas.\n\n"
  388.                 "   Añadir nuevo hasta 39.x (sólo añade los nuevos "
  389.                 "tipos de herramienta hasta esa versión; cualquier tipo "
  390.                 "de herramienta existente no será modificado.\n"
  391.             )
  392.         )
  393.  
  394.         ; JPEG codec
  395.  
  396.         (set #codec-message
  397.             (cat
  398.                 "\n\n\nClase Tower JPEG Codec\n\n"
  399.                 "Copyright © 1994 Christoph Feck, TowerSystems\n"
  400.                 "Todos los derechos reservados (All Rights Reserved).\n\n\n\n"
  401.                 "Por favor, consulte la documentación para más detalles."
  402.             )
  403.         )
  404.  
  405.         (set #jpeg-tmp-prompt
  406.             (cat
  407.                 "Elija un directorio para ficheros temporal (pero que "
  408.                 "no sea la unidad RAM:)"
  409.             )
  410.         )
  411.  
  412.         (set #temp-file
  413.             (cat
  414.                 "\n   Para poder decodificar algunas imágenes JPEG, "
  415.                 "necesaria  una gran cantidad de memoria. Si la memoria "
  416.                 "principal no fuese suficiente, será creado un fichero "
  417.                 "temporal en su disco duro. La unidad donde éste será "
  418.                 "creado tiene que disponer de suficiente espacio libre "
  419.                 "(sobre 4 MB).\n\n"
  420.                 "   Normalmente sólo será necesario un fichero temporal, "
  421.                 "si lo que desea es reducir imágenes JPEG a 256 "
  422.                 "colores.\n\n"
  423.                 @askdir-help
  424.             )
  425.         )
  426.  
  427.         (set #jpeg-startup-prompt "Añadida asignación en su fichero 'user-startup'.")
  428.  
  429.         (set #make-assign
  430.             (cat
  431.                 "\n   La asignación lógica \"JPEGTMP:\" será empleada "
  432.                 "como directorio temporal: para que esta asignación esté "
  433.                 "vigente cada vez que se reinicie el sistema, un comando "
  434.                 "\"Assign\" será añadido en su fichero \"user-startup\".\n\n"
  435.                 @startup-help
  436.             )
  437.         )
  438.  
  439.         (set #jpeg-copy "Copiando %s...")
  440.     )
  441. )
  442.  
  443.  
  444. ;**************************************************************************
  445. ;
  446. ; French strings
  447. ;
  448.  
  449. (if (= @language "francais")
  450.     (
  451.         (set #default-lang #french-lang)
  452.     )
  453. )
  454.  
  455.  
  456. ;**************************************************************************
  457. ;
  458. ; Italian strings
  459. ;
  460.  
  461. (if (= @language "italiano")
  462.     (
  463.         (set #default-lang #italian-lang)
  464.     )
  465. )
  466.  
  467.  
  468. ;**************************************************************************
  469. ;
  470. ; Dutch strings
  471. ;
  472.  
  473. (if (= @language "nederlands")
  474.     (
  475.         (set #default-lang #dutch-lang)
  476.     )
  477. )
  478.  
  479.  
  480. ;**************************************************************************
  481. ;
  482. ; Norwegian strings
  483. ;
  484.  
  485. (if (= @language "norsk")
  486.     (
  487.         (set #default-lang #norwegian-lang)
  488.     )
  489. )
  490.  
  491.  
  492. ;**************************************************************************
  493. ;
  494. ; Russian strings
  495. ;
  496.  
  497. (if (= @language "russian")
  498.     (
  499.         (set default-lang #russian-lang)
  500.  
  501.         (set #welcome
  502.             (cat
  503.                 "\n\n\nÃíàïí îíåaêíáañû á çìðñaêþñíï îïíâïaëëú Visage.\n\n"
  504.                     "Üña îïíâïaëëa îíæáíêçñ Áaë òðñaìíáçñû Visage ìa Áaøò Aëçâò.\n\n\n"
  505.                     "Visage © 1995  Magnus Holmgren."
  506.               )
  507.         )
  508.  
  509.         (set #install-parts
  510.             "Îíåaêòèðña, áúàäïçñä éíëîíìäìñú, éíñíïúä Áú åäêaäñä çìðñaêçïíáañû"
  511.         )
  512.  
  513.         (set #item-visage "Visage")
  514.  
  515.         (set #item-visage-guide "Visage.guide")
  516.  
  517.         (set #item-locale "Translations")
  518.  
  519.         (set #item-codec "JPEG codec")
  520.  
  521.         (set #item-getmodeid "GetModeID")
  522.  
  523.         (set #item-kill "Kill")
  524.  
  525.         (set #item-makelink "MakeLink")
  526.  
  527.         (set #item-unpackilbm "UnpackILBM")
  528.  
  529.         (set #install-parts-help
  530.             (cat
  531.                 "    Æãäðû Áú ëíåäñä áúàïañû ïaæêçöìúä éíëîíìäìñú Visage ãêþ áíæëíåìíè çô "
  532.                 "çìðñaêþõçç. Îíðêä üñíâí Áú ðëíåäñä òñíöìçñû ïaæêçöìúä ãäñaêç (ìaîïçëäï, "
  533.                 "éòãa éíìéïäñìí àòãòñ ðéíîçïíáaìú ïaæêçöìúä óaèêú). Áú ëíåäñä áúàïañû "
  534.                 "ðêäãòýùçä óaèêú:\n"
  535.                 "    Visage: ðíàðñáäììí îïíâïaëëa îïíðëíñïa éaïñçìíé.\n"
  536.                 "    Visage.guide: ãíéòëäìñaõçþ á âçã-óíïëañä. Äðêç Áú æaôíñçñä ä½ òðñaìíáçñû "
  537.                 "ð çðîíêûæíáaìçäë çìðñaêþñíïa, ñí ñäéðñ àòãäñ aáñíëañçöäðéç óíïëañçïíáañûðþ "
  538.                 "îíã ñäéòùòý øçïçìò íéìa. Á ðêòöaä "ïòöìíè" çìðñaêþõçç  øçïçìa àòãäñ 76 éíêíìíé.\n"
  539.                 "    Translations: îïç çìðñaêþõçç îäïäaíãíá Visage àòãäñ ïaàíñañû "
  540.                 "ìa áúàïaììíë Áaëç þæúéä (þæúéaô).\n"
  541.                 "    JPEG codec: éêaðð Tower JPEG Codec ñïäàòäñðþ, öñíàú Visage ëíâ îíéaæúáañû "
  542.                 "éaïñçìéç á óíïëañä JPEG (àäæ çðîíêûæíáaìçþ áðñïíäììúô ñçîíá ãaììúô).\n"
  543.                 "    GetModeID: îïíâïaëëa, îíéaæúáaýùaþ ïçéáäðñäï üéïaììúô ïäåçëíá ç îäöañaýùaþ "
  544.                 "ãäðþñçöìíä öçðêí, ðííñáäñðñáòýùää áúàïaììíëò ïäåçëò.\n"
  545.                 "    Kill: îïíâïaëëa, éíñíïaþ ëíåäñ îïäïáañû çðîíêìäìçä ãïòâçô îïíâïaëë, îíðêaá "
  546.                 "çë ðçâìaê íðñaìíáa (îïçëäïìí ñí åä, öñí ç  Break.)\n"
  547.                 "    MakeLink: æaëäìa ðñaìãaïñìíè éíëaìãú, îíããäïåçáaýùaþ \"ðêaàúä\" "
  548.                 "ðáþæç.\n"
  549.                 "    DeleteLink: A simple Delete-clone that also deletes soft links "
  550.                 "without a target.\n"
  551.                 "    UnpackILBM: ïaðîaéíáúáaäñ \"ñäêí\" IFF ILBM óaèêíá "
  552.                 "(BODY chunk).\n"
  553.                 "    Àíêää îíãïíàìòý çìóíïëaõçý ðë. á ãíéòëäìñaõçç é îïíâïaëëä.\n"
  554.             )
  555.         )
  556.  
  557.         (set #where-visage "Òéaåçñä ëaïøïòñ ãêþ çìðñaêþõçç Visage")
  558.  
  559.         (set #where-visage-guide "Éòãa éíîçïíáañû óaèê ãíéòëäìñaõçç Visage.guide?")
  560.  
  561.         (set #copy-guide-icon "Ìaãí êç éíîçïíáañû çéíìéò ãêþ Visage.guide?")
  562.  
  563.         (set #convert-guide "Îïäíàïaæòý Visage.guide...")
  564.  
  565.         (set #which-language "Éaéçä þæúéç ìaãí çìðñaêçïíáañû?")
  566.  
  567.         (set #which-language-help
  568.             (cat
  569.                 "    Aëçâa ëíåäñ ïaàíñañû ìa ëìíâçô þæúéaô. Äðêç Áú ôíñçñä, öñíàú "
  570.                 "Visage çðîíêûæíáaê ðñaìãaïñìúè þæúé Áaøäè ðçðñäëú, ñí ìäíàôíãçëí "
  571.                 "ðéíîçïíáañû ðííñáäñðñáòýùçä éañaêíâç ìa Áaø å½ðñéçè ãçðé - îííãìíëò "
  572.                 "ãêþ éaåãíâí çæ çðîíêûæòäëúô þæúéíá.\n"
  573.                 "    Öñíàú òëäìûøçñû íàÿ½ë, æaìçëaäëúè þæúéíáúëç éañaêíâaëç, "
  574.                 "áú ëíåäñä ìä áúàçïañû éañaêíâç ãêþ ñäô þæúéíá, éíñíïúä Áaë á îïçìõçîä "
  575.                 "ìä îíñïäàòýñðþ.\n"
  576.                 "    Îïíðñí îíðñaáûñä âaêíöéç ìaîïíñçá ñïäàòäëúô Áaë þæúéíá ç áð½.\n "
  577.             )
  578.         )
  579.  
  580.         (set #where-tools "Éòãa çìðñaêçïíáañû ãíîíêìçñäêûìúä îïíâïaëëú?")
  581.  
  582.         (set #where-tools-help
  583.             (cat
  584.                 "    Òéaåçñä ëaïøïòñ éíîçïíáaìçþ îïíâïaëë GetModeID, Kill, MakeLink, "
  585.                 "DeleteLink ç UnpackILBM. Àòãòñ ðéíîçïíáaìú ñíêûéí áúàïaììúä Áaëç "
  586.                 "îïíâïaëëú. Îíðéíêûéò æaîòðéañû áðä üñç îïíâïaëëú áíæëíåìí ñíêûéí çæ "
  587.                 "Shell, ñí îïäãîíêaâaäñðþ ðéíîçïíáañû çô á C:, âãä, éaé îïaáçêí, "
  588.                 "ìaôíãþñðþ îíãíàìúä îïíâïaëëú.\n"
  589.                 "    Á êýàíë ðêòöaä åäêañäêûìí, öñíàú üñç îïíâïaëëú ìaôíãçêçðû îí íãìíëò "
  590.                 "çæ ãíðñòîìúô ëaïøïòñíá Áaøäè ðçðñäëú.\n"
  591.             )
  592.         )
  593.  
  594.         (set #copy "Éíîçïòý %s á %s...")
  595.  
  596.         (set #program-update "Éaé Áú ôíñçñä íàìíáçñû çìðñïòëäìñaïçè çéíìéç?")
  597.  
  598.         (set #update-none "Ìä ôíöò")
  599.  
  600.         (set #update-all "Ãíàaáçñû áð½")
  601.  
  602.         (set #update-since "Ãíàaáçñû, ìaöçìaþ ð %s")
  603.  
  604.         (set #program-update-help
  605.             (cat
  606.                 "    Îíðéíêûéò ëú ðäèöað íàìíáêþäë àíêää ðñaïòý áäïðçý Visage, ñí "
  607.                 "ðñaïaþ çéíìéa ìä îäïäîçðúáaäñðþ æaìíáí. Üñí ðãäêaìí ãêþ ñíâí, öñíàú "
  608.                 "ðíôïaìçñû ñä çæëäìäìçþ, éíñíïúä Áú ëíâêç îïíçæáäðñç ïaìää. Íãìaéí, "
  609.                 "ìçöñí ìä ëäøaäñ ìaë ãíàaáçñû ìíáúä îaïaëäñïú. Æãäðû áú ëíåäñä "
  610.                 "ïäøçñû, ôíñçñä êç Áú:\n"
  611.                 "    Ìçöäâí ìä íàìíáêþñû.\n"
  612.                 "    Ãíàaáçñû ìíáúä îaïaëäñïú é òåä ðòùäðñáòýùçë. "
  613.                 "Êýàúä áíæëíåìí òãaê½ììúä Áaëç ïaìää îaïaëäñïú àòãòñ ðìíáa ãíàaáêäìú, "
  614.                 "ïaáìí éaé ç ìíáúä îaïaëäñïú.\n "
  615.                 "    Ãíàaáçñû îíðêä 39.x: ãíàaáçñû ìíáúä îaïaëäñïú ñíêûéí îíðêä üñíè áäïðçç ÃÍÐ. "
  616.                 "Ðòùäðñáòýùçä îaïaëäñïú íðñaìòñðþ ìäçæëäììúëç.\n"
  617.             )
  618.         )
  619.  
  620.         ; JPEG codec
  621.  
  622.         (set #codec-message
  623.             (cat
  624.                 "\n\n\nTower JPEG Codec Class\n\nCopyright © 1994 Christoph Feck, TowerSystems\n"
  625.                 "Áðä îïaáa æaùçùäìú.\n\n\n\n"
  626.                 "Îíãïíàìíðñç ðë. á ãíéòëäìñaõçç."
  627.             )
  628.         )
  629.  
  630.         (set #jpeg-tmp-prompt
  631.             "Áúàäïçñä éañaêíâ ãêþ áïäëäììúô óaèêíá (ñíêûéí ìä á RAM:)"
  632.         )
  633.  
  634.         (set #temp-file
  635.             (cat
  636.                 "    Ãêþ ãäéíãçïíáaìçþ ìäéíñíïúô JPEG-éaïñçìíé, éêaðð Codec ñïäàòäñ "
  637.                 "æìaöçñäêûìúô íàÿ½ëíá îaëþñç.\n"
  638.                 "Äðêç íîäïañçáìíè îaëþñç ìäãíðñañíöìí, ñí Codec ðíæãaðñ áïäëäììúè óaèê ìa "
  639.                 "Áaøäë å½ðñéíë ãçðéä. Îaïñçõçþ, ìa éíñíïíè üñíñ óaèê àòãäñ ðíæãaì, ãíêåìa "
  640.                 "çëäñû ðáíàíãìúè íàÿ½ë ìä ëäìää 4-ô ëäâaàaèñ.\n"
  641.                 "    Á íàùäë ðêòöaä, üñíñ óaèê ñïäàòäñðþ ñíêûéí ãêþ îïçáäãäìçþ JPEG-éaïñçìéç "
  642.                 "é 256-ñç õáäñaë.\n\n"
  643.                 @askdir-help
  644.             )
  645.         )
  646.  
  647.         (set #jpeg-startup-prompt
  648.             "Ìaãí éíä-öñí ãíàaáçñû á óaèê S:user-startup."
  649.         )
  650.  
  651.         (set #make-assign
  652.             (cat
  653.                 "    Êíâçöäðéíä çëþ \"JPEGTMP:\" çðîíêûæòäñðþ ãêþ ððúêéç ìa áïäëäììúè "
  654.                 "éañaêíâ ãêþ JPEG-éaïñçìíé.\n"
  655.                 "    Öñíàú üñí çëþ àúêí ãíðñòîìí îíðêä éaåãíâí (ïä)ðñaïña éíëîûýñäïa, "
  656.                 "éíëaìãa \"Assign\" ãíêåìa àúñû ãíàaáêäìa á óaèê \"user-startup\".\n\n"
  657.                 @startup-help
  658.             )
  659.         )
  660.  
  661.         (set #jpeg-copy "Éíîçïòý %s...")
  662.     )
  663. )
  664.  
  665.  
  666. ;**************************************************************************
  667. ;
  668. ; Serbian (?) strings
  669. ;
  670.  
  671. ; .ct
  672. (if (= @language "srpski")
  673.     (
  674.         (set #default-lang #serbian-lang)
  675.     )
  676. )
  677.  
  678.  
  679. ;**************************************************************************
  680. ;
  681. ; Finnish strings
  682. ;
  683.  
  684. ; .ct
  685. (if (= @language "suomi")
  686.     (
  687.         (set #default-lang #finnish-lang)
  688.     )
  689. )
  690.  
  691.  
  692. ;**************************************************************************
  693. ;
  694. ; Swedish strings
  695. ;
  696.  
  697. (if (= @language "svenska")
  698.     (
  699.         (set #default-lang #swedish-lang)
  700.  
  701.         (set #bad-kick
  702.             "Du måste ha AmigaOS version 3.0 eller högre för att kunna använda Visage."
  703.         )
  704.  
  705.         (set #welcome
  706.             (cat
  707.                 "\n\n\nVälkommen till Installeraren.\n\n"
  708.                 "Det här programmet låter dig installera Visage i din Amiga.\n\n\n"
  709.                 "Visage © 1995  Magnus Holmgren."
  710.             )
  711.         )
  712.  
  713.         (set #install-parts "Välj de delar du vill installera:")
  714.  
  715.         (set #item-visage "Visage")
  716.  
  717.         (set #item-visage-guide "Visage.guide")
  718.  
  719.         (set #item-locale "Översättningar")
  720.  
  721.         (set #item-codec "JPEG codec")
  722.  
  723.         (set #install-parts-help
  724.             (cat
  725.                 "  Här väljer du de olika delar av Visage som du vill installera. "
  726.                 "Efter det anger du detaljer om installationen (såsom var de olika "
  727.                 "filerna ska installeras). Du kan välja mellan följande delar:\n"
  728.                 "  Visage: Själva bildvisaren.\n"
  729.                 "  Visage.guide: Manualen, i AmigaGuide®-format. Om du installerar "
  730.                 "den med Installeraren, så kommer texten att formateras om efter "
  731.                 "fönstrets aktuella storlek. Om du installerar den manuellt, så "
  732.                 "är texten fixerad vid 76 kolumner.\n"
  733.                 "  Översättningar: Om du installerar en översättning, så kan "
  734.                 "Visage använda det språket.\n"
  735.                 "  JPEG codec: \"The Tower JPEG Codec Class\". Visage behöver "
  736.                 "den här för att kunna visa JPEG-bilder.\n"
  737.                 "  GetModeID: Ett program som visar en skärmlägesväljare, och "
  738.                 "sedan skriver ut ett decimalt tal som motsvarar det valda "
  739.                 "skärmläget.\n"
  740.                 "  Kill: Ett program som kan stoppa andra program (genom att "
  741.                 "skicka \"break\"-signaler). Liknar Break.\n"
  742.                 "  MakeLink: En erättning för MakeLink, som stödjer så kallade "
  743.                 "mjuka länkar.\n"
  744.                 "  DeleteLink: En enkel Delete-variant, som också kan radera "
  745.                 "mjuka länkar där målfilen saknas.\n"
  746.                 "  UnpackILBM: Ett program som packar upp bilddatan i en IFF ILBM "
  747.                 "bild (BODY \"chunken\").\n"
  748.                 "    För mer information om de här sakerna, se manualen.\n"
  749.             )
  750.         )
  751.  
  752.         (set #where-visage "Var vill du installera Visage?\nEn låda kommer INTE att skapas!")
  753.  
  754.         (set #where-visage-guide "Var vill du installera Visage.guide?")
  755.  
  756.         (set #copy-guide-icon "Ska jag kopiera ikonen för Visage.guide?")
  757.  
  758.         (set #convert-guide "Konverterar Visage.guide...")
  759.  
  760.         (set #which-language "Vilka språk ska installeras?")
  761.  
  762.         (set #which-language-help
  763.             (cat
  764.                 "  Amigan kan arbeta med flera olika språk. Om du vill att "
  765.                 "Visage ska använda samma språk som Amiga Workbench så "
  766.                 "måste en så kallad katalogfil kopieras till din systemdisk "
  767.                 "för varje språk.\n"
  768.                 "  För att minimera diskutrymmet för språkfiler kan du välja "
  769.                 "att bara installera filerna för vissa språk.\n"
  770.                 "  Markera bara rutorna för de språk du önskar installera i "
  771.                 "din dator.\n"
  772.             )
  773.         )
  774.  
  775.         (set #where-language
  776.             (cat
  777.                 "Var vill du installera katalogfilerna?\n\n"
  778.                 "Du kan antingen installera dem i samma låda som programmet "
  779.                 "(välj \"Program\"), eller i den 'globala' enheten "
  780.                 "\"Locale:\" (välj \"Locale:\")."
  781.             )
  782.         )
  783.  
  784.         (set #lang-progdir "Program")
  785.  
  786.         (set #lang-locale  "Locale:")
  787.  
  788.         (set #where-language-help
  789.             (cat
  790.                 "  Om du installerar katalogfilerna i samma låda som "
  791.                 "Visage (eller snarare i underlådor i den lådan), så "
  792.                 "kommer du att behöva flytta de här filerna, om du "
  793.                 "flyttar Visage till någon annan läda. Om du installerar "
  794.                 "katalogfilerna i \"Locale:\" så behöver du inte bekymra "
  795.                 "dig om dem ifall du flyttar Visage. Å andra sidan, alla "
  796.                 "Visage-relaterade filler kommer inte att finnas i samma "
  797.                 "låda."
  798.             )
  799.         )
  800.  
  801.         (set #builtin-lang "(inbyggt)")
  802.  
  803.         (set #where-tools "Var vill du installera de extra programmen?")
  804.  
  805.         (set #where-tools-help
  806.             (cat
  807.                 "  Här anger du var programmen GetModeID, Kill, MakeLink "
  808.                 "DeleteLink och UnpackILBM ska installeras någonstans. Bara "
  809.                 "de program som du valde tidigare kommer att kopieras. "
  810.                 "Eftersom de här programmen bara kan användas från ett "
  811.                 "skal, så är den förvalda destinationen C:, eftersom "
  812.                 "systemets \"skalprogram\" finns där. Det rekommenderas "
  813.                 "att du installerar dessa program någonstans i sökvägen "
  814.                 "för kommandon.\n"
  815.             )
  816.         )
  817.  
  818.         (set #copy "Kopierar %s till %s...")
  819.  
  820.         (set #program-update "Hur vill du uppdatera verktygstyperna i ikonen?")
  821.  
  822.         (set #update-none "Uppdatera inte")
  823.  
  824.         (set #update-all "Lägg till alla")
  825.  
  826.         (set #update-since "Lägg till nya sedan %s")
  827.  
  828.         (set #program-update-help
  829.             (cat
  830.                 "  Eftersom den här installationen uppdaterar en gammal version "
  831.                 "av Visage, så kommer inte ikonen att kopieras. Detta för att "
  832.                 "bibehålla eventuella ändringar som du kan ha gjort. Men nya "
  833.                 "verktygstyper kan ha tillkommit. Här kan du avgöra vad du "
  834.                 "vill göra:\n"
  835.                 "  Uppdatera inte: Hoppa över detta.\n"
  836.                 "  Lägg till alla: Lägg till alla verktygstyper. Existerande "
  837.                 "verktygstyper kommer inte att ändras.\n"
  838.                 "  Lägg till nya sedan 39.x: Lägg bara till de nya "
  839.                 "verktytstyperna. Eventuella existerande verktygstyper "
  840.                 "kommer inte att ändras.\n"
  841.             )
  842.         )
  843.  
  844.         ; JPEG codec
  845.  
  846.         (set #temp-file
  847.             (cat
  848.                 "  För att packa upp vissa JPEG-bilder, så behöver Codec:en "
  849.                 "mycket minne.\n"
  850.                 "  Om det inte finns nog med plats i huvudminnet, så kommer "
  851.                 "Codec:en att skapa en temporärfil på din hårddisk. Volymen "
  852.                 "på vilken den här filen skapas bör ha tillräcklikt med fritt "
  853.                 "utrymme (ungefär 4 MB).\n"
  854.                 "  En temporärfil behövs normalt sett bara om du vill "
  855.                 "kvantisera JPEG-bilder till 256 färger.\n\n"
  856.                 @askdir-help
  857.             )
  858.         )
  859.  
  860.         (set #make-assign
  861.             (cat
  862.                 "  Den logiska tilldelningen \"JPEGTMP:\" används för att "
  863.                 "referera till lådan för temporära filer.\n"
  864.                 "  För att göra den här tilldelningen tillgänglig vid varje "
  865.                 "systemstart så behöver ett \"Assign\"-kommando läggas till "
  866.                 "i din \"user-startup\"-fil.\n\n"
  867.                 @startup-help
  868.             )
  869.         )
  870.  
  871.         (set #codec-message
  872.             (cat
  873.                 "\n\n\nTower JPEG Codec Class\n\n"
  874.                 "Upphovsrätt © 1994 Christoph Feck, TowerSystems\n"
  875.                 "Alla rättigheter reserverade.\n\n\n\n"
  876.                 "Var god läs dokumentationen för detaljer."
  877.             )
  878.         )
  879.  
  880.         (set #jpeg-tmp-prompt
  881.             "Välj en låda för temporära filer, inte i RAM:"
  882.         )
  883.  
  884.         (set #jpeg-startup-prompt
  885.             "En tilldelning måste läggas till i din user-startup."
  886.         )
  887.  
  888.         (set #jpeg-copy "Kopierar %s...")
  889.     )
  890. )
  891.  
  892. ;**************************************************************************
  893. ;
  894. ; The actual installaion script
  895. ;
  896.  
  897. ; Check Kickstart version. Exit if not at least 3.0
  898. (if (< (/ (getversion) 65536) 39)
  899.         (abort #bad-kick)
  900. )
  901.  
  902. ; Since files probably are scatter installed, don't mention any specific location.
  903. (set @default-dest "")
  904.  
  905. ; Version of old program. This means no old program.
  906. (set #visagever 0)
  907. (set #visagerev 0)
  908.  
  909. ; Request proportinal fonts, if supported. This string is
  910. ; prepended to the first askoptions choice.
  911. (if (>= @installer-version 2752518)     ; 42 * 65536 + 6
  912.     ; At least version 42.6
  913.     (set #propfont "p")
  914.     ; Pre V42
  915.     (set #propfont "")
  916. )
  917.  
  918. ; Greetings Mr. Falken...
  919. (message #welcome)
  920.  
  921. (welcome)
  922.  
  923. ; Ask the user what to install
  924. (set #install-files
  925.     (askoptions
  926.         (prompt    #install-parts)
  927.         (help    #install-parts-help "\n" @askoptions-help)
  928.         (choices
  929.             (cat #propfont #item-visage)
  930.             #item-visage-guide
  931.             #item-locale
  932.             #item-codec
  933.             #item-getmodeid
  934.             #item-kill
  935.             #item-makelink
  936.             #item-deletelink
  937.             #item-unpackilbm
  938.         )
  939.         (default (if (= @user-level 2) 511 15))
  940.     )
  941. )
  942.  
  943. ; Ask the user for the location of all parts
  944.  
  945. ; Location for Visage
  946. (if (BITAND #install-files 1)
  947.     (
  948.         (set #visage-dest
  949.             (askdir
  950.                 (prompt  #where-visage)
  951.                 (help    @askdir-help)
  952.                 (default "Sys:Utilities")
  953.             )
  954.         )
  955.  
  956.         ; Get the version of previously installed Visage
  957.         (if (= (exists (tackon #visage-dest "Visage")) 1)
  958.             (
  959.                 (set #vernum (getversion (tackon #visage-dest "Visage")))
  960.                 (set #visagever (/ #vernum 65536))
  961.                 (set #visagerev (- #vernum (* #visagever 65536)))
  962.  
  963.                 ; Just in case the above failed...
  964.                 (if (<= #visagever 38)
  965.                     (
  966.                         (set #visagever 39)
  967.                         (set #visagerev 0)
  968.                     )
  969.                 )
  970.             )
  971.         )
  972.  
  973.         (set #update-action 0)
  974.  
  975.         (if (AND #visagever (= (exists (tackon #visage-dest "Visage.info")) 1))
  976.             (
  977.                 (set #defaction 0)
  978.  
  979.                 (if (= #visagerev 0)
  980.                     (set #defaction 2)
  981.                 )
  982.  
  983.                 (if (= #visagerev 1)
  984.                     (set #defaction 3)
  985.                 )
  986.  
  987.                 (if (= #visagerev 2)
  988.                     (set #defaction 4)
  989.                 )
  990.  
  991.                 (if (= #visagerev 5)
  992.                     (set #defaction 5)
  993.                 )
  994.  
  995.                 (if (= #visagerev 10)
  996.                     (set #defaction 6)
  997.                 )
  998.  
  999.                 (set #update-action
  1000.                     (askchoice
  1001.                         (prompt        #program-update)
  1002.                         (choices    (cat #propfont #update-none)
  1003.                                 #update-all
  1004.                                 (#update-since "39.0")
  1005.                                 (#update-since "39.1")
  1006.                                 (#update-since "39.2")
  1007.                                 (#update-since "39.5")
  1008.                                 (#update-since "39.10")
  1009.                         )
  1010.                         (default    #defaction)
  1011.                         (help        #program-update-help "\n" @askchoice-help)
  1012.                     )
  1013.                 )
  1014.  
  1015.                 (set #tt39-1  "DITHER COMPACT TIME")
  1016.                 (set #tt39-2  "COMMAND CYCLE NOCLICK NORMALNAMES RTG SORT TEST VCENTER")
  1017.                 (set #tt39-3  "INFO SHOWINFO")
  1018.                 (set #tt39-6  "NOICON NOFOREIGN")
  1019.                 (set #tt39-11 "BORDERBLANK NOFILECHECK")
  1020.  
  1021.                 (set #icon-dest (tackon #visage-dest "Visage"))
  1022.                 (set #tooltype-pattern
  1023.                     (select #update-action
  1024.                         ""
  1025.                         "#?"
  1026.                         ("%s %s %s %s %s" #tt39-11 #tt39-6 #tt39-3 #tt39-2 #tt39-1)
  1027.                         ("%s %s %s %s"    #tt39-11 #tt39-6 #tt39-3 #tt39-2)
  1028.                         ("%s %s %s"       #tt39-11 #tt39-6 #tt39-3)
  1029.                         ("%s %s"          #tt39-11 #tt39-6)
  1030.                         ("%s"             #tt39-11)
  1031.                     )
  1032.                 )
  1033.             )
  1034.         )
  1035.     )
  1036. )
  1037.  
  1038. ; Location for Visage.guide
  1039. (if (BITAND #install-files 2)
  1040.     (
  1041.         (set #guide-dest visage-dest)
  1042.  
  1043.         (if (exists "Help:")
  1044.             (set #guide-dest "Help:")
  1045.         )
  1046.  
  1047.         (set #guide-dest
  1048.             (askdir
  1049.                 (prompt  #where-visage-guide)
  1050.                 (help    @askdir-help)
  1051.                 (default #guide-dest)
  1052.             )
  1053.         )
  1054.  
  1055.         (set #dest-guide-name (tackon #guide-dest "Visage.guide.info"))
  1056.  
  1057.         (set #guide-icon
  1058.             (if (AND (= @user-level 2 ) (= (exists #dest-guide-name) 0))
  1059.                 (askbool
  1060.                     (prompt #copy-guide-icon)
  1061.                     (help    " ")
  1062.                 )
  1063.                 1    ; Default is to copy the icon
  1064.             )
  1065.         )
  1066.     )
  1067. )
  1068.  
  1069. (set #languages 0)
  1070.  
  1071. ; .ct
  1072. ; Which languages that should be installed.
  1073. (if (BITAND #install-files 4)
  1074.     (set #lang
  1075.         (askoptions
  1076.             (prompt    #which-language)
  1077.             (help    #which-language-help "\n" @askoptions-help)
  1078.             (choices
  1079.                 (cat #propfont "Deutsch")
  1080.                 (cat "English  " #builtin-lang)
  1081.                 "Español"
  1082.                 "Français"
  1083.                 "Italiano"
  1084.                 "Nederlands"
  1085.                 "Norsk"
  1086.                 "Russian"
  1087.                 "Srpski"
  1088.                 "Suomi"
  1089.                 "Svenska"
  1090.             )
  1091.             (default #default-lang)
  1092.         )
  1093.     )
  1094. )
  1095.  
  1096. ; Default to install catalog files in the same drawer as Visage.
  1097. (set #catalog-dest (tackon #visage-dest "Catalogs"))
  1098.  
  1099. ; Where should the catalogs be installed? Only do this if we have
  1100. ; an expert user, and any non-english language was selected.
  1101. (if (AND (BITAND #install-files 1) (<> #lang 0) (<> #lang #english-lang) (= @user-level 2))
  1102.     (
  1103.         (set #choice
  1104.             (askbool
  1105.                 (prompt  #where-language)
  1106.                 (help    #where-language-help "\n" @askbool-help)
  1107.                 (default 1)
  1108.                 (choices #lang-progdir #lang-locale)
  1109.             )
  1110.         )
  1111.  
  1112.         (if (NOT #choice)
  1113.             (set #catalog-dest "Locale:Catalogs")
  1114.         )
  1115.     )
  1116. )
  1117.  
  1118. ; Ask for location for extra tools
  1119. (if (BITAND #install-files 496)    ; 16 + 32 + 64 + 128 + 256
  1120.     (set #tool-dest
  1121.         (askdir
  1122.             (prompt    #where-tools)
  1123.             (help    #where-tools-help "\n" @askdir-help)
  1124.             (default "C:")
  1125.         )
  1126.     )
  1127. )
  1128.  
  1129. ; And now do the actual installation
  1130.  
  1131. (complete 0)
  1132.  
  1133. (if (BITAND #install-files 1)
  1134.     (
  1135.         (copylib
  1136.             (prompt    (#copy "Visage" visage-dest))
  1137.             (source    "Visage")
  1138.             (dest    #visage-dest)
  1139.         )
  1140.  
  1141.         (if (= (exists (tackon #visage-dest "Visage.info")) 0)
  1142.             (copyfiles
  1143.                 (source    "Visage.info")
  1144.                 (dest    #visage-dest)
  1145.             )
  1146.             (if (> #update-action 0)
  1147.                 (run ("C/UpdateTT Visage %s %s" #icon-dest #tooltype-pattern))
  1148.             )
  1149.         )
  1150.     )
  1151. )
  1152.  
  1153. (complete 20)
  1154.  
  1155. (if (BITAND #install-files 2)
  1156.     (
  1157.         (working #convert-guide)
  1158.  
  1159.         (run "C/FixAG Visage.guide T:Visage.Guide")
  1160.  
  1161.         (copylib
  1162.             (prompt (#copy "Visage.guide" guide-dest))
  1163.             (source "T:Visage.guide")
  1164.             (dest   #guide-dest)
  1165.         )
  1166.  
  1167.         (delete "T:Visage.guide" (safe))
  1168.  
  1169.         (if #guide-icon
  1170.             (copyfiles
  1171.                 (source "Visage.guide.info")
  1172.                 (dest   #guide-dest)
  1173.             )
  1174.         )
  1175.     )
  1176. )
  1177.  
  1178. (complete 40)
  1179.  
  1180. ; .ct
  1181. (if (BITAND #install-files 4)
  1182.     (
  1183.         (if (= (exists #catalog-dest) 0)
  1184.             (makedir #catalog-dest)
  1185.         )
  1186.  
  1187.         (set #n 0)
  1188.  
  1189.         (while
  1190.             (set #language
  1191.                 (select #n
  1192.                     "Deutsch"
  1193.                     "English"
  1194.                     "Español"
  1195.                     "Français"
  1196.                     "Italiano"
  1197.                     "Nederlands"
  1198.                     "Norsk"
  1199.                     "Russian"
  1200.                     "Srpski"
  1201.                     "Suomi"
  1202.                     "Svenska"
  1203.                     ""
  1204.                 )
  1205.             )
  1206.  
  1207.             (
  1208.                 (if (AND (IN #lang #n) (<> #language "English"))
  1209.                     (
  1210.                         (set #catalog
  1211.                             (tackon "Catalogs"
  1212.                                 (tackon #language "visage.catalog")
  1213.                             )
  1214.                         )
  1215.  
  1216.                         (set #destination (tackon #catalog-dest #language))
  1217.  
  1218.                         (copylib
  1219.                             (prompt (#copy #catalog #destination))
  1220.                             (source #catalog)
  1221.                             (dest   #destination)
  1222.                         )
  1223.                     )
  1224.                 )
  1225.  
  1226.                 (set #n (+ #n 1))
  1227.             )
  1228.         )
  1229.     )
  1230. )
  1231.  
  1232. (complete 45)
  1233.  
  1234. (if (BITAND #install-files 16)
  1235.     (copylib
  1236.         (prompt (#copy "GetModeID" #tool-dest))
  1237.         (source "C/GetModeID")
  1238.         (dest   #tool-dest)
  1239.     )
  1240. )
  1241.  
  1242. (if (BITAND #install-files 32)
  1243.     (copylib
  1244.         (prompt (#copy "Kill" #tool-dest))
  1245.         (source "C/Kill")
  1246.         (dest   #tool-dest)
  1247.     )
  1248. )
  1249.  
  1250. (if (BITAND #install-files 64)
  1251.     (copylib
  1252.         (prompt (#copy "MakeLink" #tool-dest))
  1253.         (source "C/MakeLink")
  1254.         (dest   #tool-dest)
  1255.     )
  1256. )
  1257.  
  1258. (if (BITAND #install-files 128)
  1259.     (copylib
  1260.         (prompt (#copy "DeleteLink" #tool-dest))
  1261.         (source "C/DeleteLink")
  1262.         (dest   #tool-dest)
  1263.     )
  1264. )
  1265.  
  1266. (if (BITAND #install-files 256)
  1267.     (copylib
  1268.         (prompt (#copy "UnpackILBM" #tool-dest))
  1269.         (source "C/UnpackILBM")
  1270.         (dest   #tool-dest)
  1271.     )
  1272. )
  1273.  
  1274. (complete 50)
  1275.  
  1276. ; JPEG codec installation
  1277.  
  1278. (if (BITAND #install-files 8)
  1279.     (
  1280.         ;****************************************************************************
  1281.         ;
  1282.         ; Setup
  1283.         ;
  1284.  
  1285.         (set #libs-dest "LIBS:")
  1286.         (set #class-dest "SYS:Classes")
  1287.  
  1288.         (if (not (exists #class-dest))
  1289.             (set #class-dest "LIBS:")
  1290.         )
  1291.  
  1292.         ;****************************************************************************
  1293.         ;
  1294.         ; Welcome
  1295.         ;
  1296.  
  1297.         (message #codec-message)
  1298.  
  1299.         ;****************************************************************************
  1300.         ;
  1301.         ; JPEGTMP: assignment
  1302.         ;
  1303.  
  1304.         (set #has-temp 0)
  1305.  
  1306.         (if (exists "JPEGTMP:" (noreq))
  1307.             (
  1308.                 (set #has-temp 1)
  1309.                 (if (= "RAM" (getdevice "JPEGTMP:"))
  1310.                     (set #has-temp 0)
  1311.                 )
  1312.             )
  1313.         )
  1314.  
  1315.         (if (= #has-temp 0)
  1316.             (
  1317.                 (set #jpeg-tmp (askdir (help #temp-file) (prompt #jpeg-tmp-prompt) (default "SYS:")))
  1318.                 (startup "JPEG Codec"
  1319.                     (help #make-assign)
  1320.                     (prompt #jpeg-startup-prompt)
  1321.                     (command "Assign JPEGTMP: \"" #jpeg-tmp "\"")
  1322.                 )
  1323.                 (makeassign "JPEGTMP" #jpeg-tmp)
  1324.             )
  1325.         )
  1326.  
  1327.         (complete 60)
  1328.  
  1329.         ;****************************************************************************
  1330.         ;
  1331.         ; Install libraries and classes
  1332.         ;
  1333.  
  1334.         (copylib
  1335.             (help @copylib-help)
  1336.             (prompt (#jpeg-copy "tower.library"))
  1337.             (source "Libs/tower.library")
  1338.             (dest #libs-dest)
  1339.             (confirm)
  1340.         )
  1341.  
  1342.         (complete 70)
  1343.  
  1344.         (copylib
  1345.             (help @copylib-help)
  1346.             (prompt (#jpeg-copy "codec.class"))
  1347.             (source "Classes/codec.class")
  1348.             (dest #class-dest)
  1349.             (confirm)
  1350.         )
  1351.  
  1352.         (complete 80)
  1353.  
  1354.         (copylib
  1355.             (help @copylib-help)
  1356.             (prompt (#jpeg-copy "picture.codec"))
  1357.             (source "Classes/Codecs/picture.codec")
  1358.             (dest (tackon #class-dest "Codecs"))
  1359.             (confirm)
  1360.         )
  1361.  
  1362.         (complete 90)
  1363.  
  1364.         (copylib
  1365.             (help @copylib-help)
  1366.             (prompt (#jpeg-copy "jpeg.codec"))
  1367.             (source "Classes/Codecs/jpeg.codec")
  1368.             (dest (tackon #class-dest "Codecs"))
  1369.             (confirm)
  1370.         )
  1371.  
  1372.         ;****************************************************************************
  1373.         ;
  1374.         ; Exit
  1375.         ;
  1376.  
  1377.         (run "Avail >Nil: FLUSH")
  1378.     )
  1379. )
  1380.  
  1381. (complete 100)
  1382.  
  1383. (exit)
  1384.